home *** CD-ROM | disk | FTP | other *** search
/ Just Call Me Internet / Just Call Me Internet.iso / prog / atari / m2 / cat3src / cat / vdistand.d < prev    next >
Text File  |  1997-10-26  |  2KB  |  50 lines
  1. DEFINITION MODULE VDIStandards;
  2.  
  3. FROM SYSTEM     IMPORT ADDRESS, WORD, LOC;
  4. FROM MagicVDI   IMPORT tPxyArray;
  5.  
  6. (*
  7. TYPE drawProc    = PROCEDURE(INTEGER,INTEGER,INTEGER,INTEGER); (* x,y,w,h *)
  8.      rProc       = PROCEDURE();
  9.      wProc       = PROCEDURE(CARDINAL);
  10.      fiveVarProc = PROCEDURE(CARDINAL, INTEGER,INTEGER,INTEGER,INTEGER);
  11. *)
  12. TYPE
  13.      iProc       = PROCEDURE(INTEGER, INTEGER,INTEGER);
  14.  
  15. PROCEDURE InitVDIStandards():BOOLEAN;
  16.  
  17. PROCEDURE SelectFont (handle, wdw : INTEGER; onlyMono : BOOLEAN;
  18.                       VAR font, size : INTEGER; setFont : iProc);
  19.  
  20. (* Ein bižchen VDI-Erweiterung *)
  21. PROCEDURE Text (isFSM : BOOLEAN; hdl, x, y: INTEGER; REF string: ARRAY OF CHAR);
  22.           (* v_gtext *)
  23.  
  24. PROCEDURE InqTextextend (isFSM : BOOLEAN; hdl : INTEGER; REF string: ARRAY OF CHAR;
  25.                          VAR extent: ARRAY OF LOC);
  26.           (* vqt_extent *)
  27.  
  28. PROCEDURE GetSpec  (tree : ADDRESS; Item : INTEGER):ADDRESS;
  29. PROCEDURE GetState (tree : ADDRESS; Item : INTEGER):BITSET;
  30. PROCEDURE GetFlags (tree : ADDRESS; Item : INTEGER):BITSET;
  31.  
  32. PROCEDURE SetSpec  (tree : ADDRESS; Item : INTEGER; newSpec  : ADDRESS);
  33. PROCEDURE SetState (tree : ADDRESS; Item : INTEGER; newState : BITSET);
  34. PROCEDURE SetFlags (tree : ADDRESS; Item : INTEGER; newFlags : BITSET);
  35.  
  36. (* demn„chst die INTEGER-Werte auf BITSETs umstellen *)
  37.  
  38. PROCEDURE CheckItem (tree : ADDRESS; item : INTEGER; enable : BOOLEAN);
  39.  
  40. PROCEDURE StatusEnable(yep : BOOLEAN);
  41.  
  42. PROCEDURE StatusCheck(b : BITSET);
  43. PROCEDURE enableMenuItems(wdw : INTEGER);
  44. PROCEDURE enableNewTop (wdw : INTEGER);
  45.  
  46. PROCEDURE enableOrDisableMenu (disable : BOOLEAN);
  47. (* Enablet oder disablet alle Menueintr„ge *)
  48.  
  49. END VDIStandards.
  50.